Simples [PortScanner]

Publicado por breek (última atualização em 02/03/2012)

[ Hits: 4.149 ]

Download SimplePortScanner.pl




É um script simples. Criado para iniciantes.

Não é nenhum [nmap] mas é bem legal e funcional.

Esta bem comentado. É claro que esta em [inglês], mas é para não perder o costume.

Usei o [Google Tradutor], caso haja alguma palavra errada é culpa é dele.

  



Esconder código-fonte

#!/usr/bin/perl
#--------------------------------------------------------------------------------------------------------
#
# @Author: breek
# @Code: SimplePortScanner.pl
# @Version: 0.1.0
# @Date: 22/02/2012
#
#--------------------------------------------------------------------------------------------------------

#===============================================================#
# É um script simples. Criado para iniciantes.
# Não é nenhum [nmap] mas é bem legal e funcional. 
#
# Esta bem comentado. É claro que esta em [inglês], mas
# é para não perder o costume. Usei o [Google Tradutor],
# caso haja alguma palavra errada é culpa é dele.
#
# Criado para ser modificado. Cada modificação mexa na versão.
# NÃO ALTERE MEU NOME!!
# NÃO ALTERE O NOME DO SCRIPT!!
#===============================================================#

use strict;
use warnings;
use IO::Socket;

#--------------------------------------------------------------------------------------------------------
#__BEGIN_MAIN__
#
# Name: Main
#
# Purpose: Initializes the script.
# 
# Input: $Var_IP
#           $Var_BeginPort
#           $Var_EndPort
#
# Output: $Var_IP
#             $Var_Scanning
#

#-----------------------------
#Global variables
#
my $Var_IP;                  # Recebe o [Endereço IP]    - USUARIO
my $Var_BeginPort;       # Recebe a [Porta inicial]     - USUARIO
my $Var_EndPort;          # Recebe a [Porta final]       - USUARIO
my $Var_Scanning;        # Escanea as portas            - SCRIPT
my $Var_FindOpenPort;  # Recebe as portas abertas - SCRIPT
#
#
#-----------------------------

system( "cls" );

# Recebe o [Endereço IP] #
print "Enter the IP address: ";
$Var_IP = <>;
chomp $Var_IP;

# Recebe a [Porta inicial] #
print "Enter the starting port: ";
$Var_BeginPort = <>;
chomp $Var_BeginPort;

# Recebe a [Porta final] #
print "Enter the ending port: ";
$Var_EndPort = <>;
chomp $Var_EndPort;

# Iniciando escaneamento #
print "\n\nScanning IP [ $Var_IP ]. \n\n";

# Escaneando #
for( $Var_Scanning = $Var_BeginPort; $Var_Scanning <= $Var_EndPort; $Var_Scanning++ )
{
   
   $Var_FindOpenPort = IO::Socket::INET->new(
                                                                           PeerAddr => $Var_IP,              # Endereço IP
                                                                           PeerPort => "$Var_Scanning",  # Numero da porta
                                                                           Proto => "TCP",                       # Protocolo
                                                                     );
         
   # Porta aberta encontrada #         
   if( $Var_FindOpenPort )
   {
      print "[+] Port [$Var_Scanning] is open. \n";
   }
   
}

# Finalizando script #
print "\nScanning...DONE. \n";
exit;

#__END_MAIN__
#--------------------------------------------------------------------------------------------------------

Scripts recomendados

Importação de IPs do Whatsapp como Objeto do Zentyal

CRIAR CBQ

Forensic Net Tools

Web Fuzzer em Perl

Carregando automaticamente wireless via ndiswrapper II


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts